home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
WORDMISC
/
POPFORM.LZH
/
TOTALS.FRM
< prev
Wrap
Text File
|
1989-03-23
|
2KB
|
27 lines
~{This form demonstrates how popForm can be used to keep up with running}~
~{..totals as you browse through a datbase. Have TESTDATA on the screen as}~
~{..you use this form. Since TESTDATA has only one screen of data, you won't}~
~{..actually be able to follow this form's instructions to "FETCH NEXT SCREEN}~
~{..AND POP BACK IN". But you can PRETEND that you did so by simply popping}~
~{..back into the form several times while TESTDATA is on the screen.}~
~{..When you decide that you don't want PopForm to record any more screens'}~
~{..data, just enter "X" when told to "FETCH NEXT...".}~
~{}~
~SENDTO TOTALS~~{this causes the info to be sent to a file called "TOTALS"}~
DATE PAYEE AMOUNT RUNNING TOTAL
~label BEGINCYCLE~
~SENDTO TOTALS~~{this causes the info to be sent to the "TOTALS" file on each}~
~{..subsequent cycle}~
~NUM1+("Amount: ",10)~~{this line causes NUM1 to be increased each cycle}~
~("Date: ",10)~~\~~{the ~\~ causes a carriage return, but no line feed}~
~("Payee: ",20)~~\~
$~("Amount: ",10)~~\~
$~NUM1~
~WRITELN "Selected data has been written to a TOTALS file."~
~WRITELN "NOW, PRESS ENTER KEY, FETCH NEXT SCREEN, AND POP BACK IN."~
~if ESC<>NEWSCREEN "(or press ESC when you're done)"~~goto BEGINCYCLE~
~{Above line causes a recycling if ESC key is not pressed. But if ESC is }~
~{..pressed, cycle is broken and the GRAND TOTAL below is printed}~
-----------
GRAND TOTAL $~NUM1~